perm filename TREE.TEX[TEX,DEK] blob sn#456325 filedate 1979-07-08 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4 
C00009 ENDMK
C⊗;
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4 
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8

% definitions for printing family trees

% the following definitions determine the size of the output
\:a←cmr10 \:q←cmb10 \:t←cmtt % fonts to use
\def\rm{\:a} \def\bf{\:q} \def\tt{\:t} % font definitions
\def\strut{\lower 3.5xgppt\vbox to 13xgppt{}} % size of each line of type
\def\colwidth{4xgpin} % width of each column
\def\vertunit{1.3xgpmm} % size of vertical measurements
\def\ruleskip{2pt} % space between \t,\b rules and the enclosed box
\vsize 13xgpin % length of pages (not including margins)

% the following definitions handle the formatting
\def\boundaries left #1 right #2 top #3 bottom #4 {\def\xmin{#1}
 \def\xmax{#2}\def\ymin{#3}\def\ymax{#4}}
\def\ent#1 #2 #3\par{\setcount7#1\setcount8#2
 \setcount9\count7 \advcount9 by -\xmax
 \ifpos9{}\else{\setcount9\count8 \advcount9 by -\ymax
  \ifpos9{}\else{\advcount7 by -\xmin \advcount7 by 1
   \ifpos7{\advcount7 by -1 \advcount8 by -\ymin \advcount8 by 1
    \ifpos8{\advcount8 by -1
     \gdef\topline{}\gdef\botline{}\gdef\children{}
     \save0\hbox{\hskip 1em\vbox{\halign{##\hfill\cr#3\cr}}}
     \hbox to 0pt{\varunit\colwidth \hskip\count7vu
      \vbox to 0pt{\varunit\vertunit \vskip\count8vu
       \hbox to \colwidth{\vbox to 0pt{\vskip 0pt minus 10000pt
	 \topline\box0\botline\vskip 0pt minus 10000pt}
	\children\hfill}
       \vskip 0pt minus 100000pt}\hskip 0pt minus 100000pt}}
    \else{}}
   \else{}}}}
\def\t{\gdef\topline{\shrule\vskip\ruleskip}}
\def\b{\gdef\botline{\vskip\ruleskip\shrule}}
\def\shrule{\vbox{\varunit \colwidth \hbox to .75vu{\leaders\hrule\hfill}}}
\def\ch{\gdef\children{\leaders\hrule}}
\def\date#1 #2 #3,{\hbox to 1em{\hfill#1}\hbox to 2.5em{ #2\hfill}\hbox to 2em
 {\hfill#3},}
\def\n#1,{\cr\strut\uppercase{\bf#1},}
\def\*#1{\cr\strut\hbox to 1em{\tt*\hfill}\!
 \if-#1{\gdef\succ{}}\else{\gdef\succ{\date#1}}\succ}
\def\+#1{\cr\strut\hbox to 1em{\tt+\hfill}\!
 \if-#1{\gdef\succ{}}\else{\gdef\succ{\date#1}}\succ}
\def\oo#1{\cr\strut\hbox to 1em{\tt o\hskip-.3em o\hfill}\!
 \if-#1{\gdef\succ{}}\else{\gdef\succ{\date#1}}\succ}
\output{\vbox{\moveleft .85xgpin \page}\advcount0}
\setcount0 1
\rm